home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / c / hce.lha / HCE / LibSource / clib / String / src / strcpy.a < prev    next >
Encoding:
Text File  |  1992-09-02  |  397 b   |  23 lines
  1. *    char *strcpy(dest, source)
  2. *        register char *dest, *source;
  3. *        {
  4. *        register char *p = dest;
  5. *    
  6. *        while(*dest++ = *source++)
  7. *            ;
  8. *        return(p);
  9. *        }
  10.  
  11.     CODE    CODE
  12.     PUBLIC _strcpy
  13. _strcpy:
  14.     move.l    4(a7),a1    ; destination
  15.     move.l    8(a7),a0    ; source
  16.     clr.l    d0
  17. strcpy1:
  18.     move.b    (a0)+,(a1)+    ; copy byte
  19.     bne    strcpy1        ; loop, unless byte was zero
  20.     move.l    4(a7),d0    ; return destination pointer
  21.     rts
  22.     END
  23.